#! /usr/bin/env perl
use v5.10;
say "学习使用perl" ;
print "Hello, world!\n";
@lines = `perldoc -u -f atan2`;
foreach (@lines) {
    s/\w<([^>]+)/\U$1/g;
    print;
}

